home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / f1 / mdisk25.arj / TEST286.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-31  |  575 b   |  33 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V+,X-}
  2. Unit Test286;
  3.  
  4. Interface
  5.  
  6. Implementation
  7.  
  8. Function Is286Able: Boolean; Assembler;
  9. Asm
  10.         Pushf
  11.         Pop     Bx
  12.         And     Bx,0Fffh
  13.         Push    Bx
  14.         Popf
  15.         Pushf
  16.         Pop     Bx
  17.         And     Bx,0F000h
  18.         Cmp     Bx,0F000h
  19.         Mov     Ax,0
  20.         Jz      @@1
  21.         Mov     Ax,1
  22. @@1:
  23. End;
  24.  
  25. Begin
  26.   If Not Is286Able Then
  27.   Begin
  28.     Writeln('Es necesario un procesador 80286 o superior '+
  29.     #13+'para ejecutar este programa');
  30.     Halt(1);
  31.    End;
  32. End.
  33.